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Script File 

This file represents to talk Dynaplay Server via Internet 



##################################### 
# This is selfandheat.dll Ship File 



; # CreatedbyDynagen.exe Date: Wed May 20 16:46:58 1998 
; ##################################### 

/app:net fighter.exe 
/dynamodule:C:\Program Files\Net 

Fighter\DynaModules\SelfAndHeatVDynaRelease\selfandheat.dll | selfandheat/selfandheatdll 

/initscname:selfandheat.dll 

/initsc: (begin\ 

(define (http-send-data data) \ 
(let-values ( [ (in out) (tcp-connect "auriga.segasoft.com" 80) ] ) \ 
(let ((cont#t))\ 

(fprintf out "Post /cgi-bin/send-data-dynamodule3 HTTP/1.0 ~% " 
(fprintf out "Content-type: text-%" 

(fprintf out "Content-length: ~a~%~%" (string-length data)) \ 
(fprintf out "-a" data) \ 
(do ((data (read in) (read in))) \ 
((or (eof-object? data) \ 
(notcont))) \ 
(if (string? data) \ 

(begin (load-from-port in) \ 
(set! cont #f)))) \ 
(close-input-port in) \ 

(close-output-port out) \ ^ 652 ^654 



)» \ f S 

(enable-dynamod "selfandheat/selfandheatdll" "net fighter.exe" \ 
' ((84 . #x1000) (184 . #x2b80) (103 . #x3ab0) (107 . #x3d10) (109 . #x48e0) \ 
(115 . #x5280) (145 . #x69e0) (146 . #x6a50) (147 . #x6b90) (148 . #x7280) \ 
(149 . #x7310) (150 . #x7350) (151 . #x78e0) (152 . #x7e40) (153 . #x8370) \ 
(154 . #x85e0) (155 . #x86d0) (156 . #x94a0) (216 . #x9a70) )) \ 
(thread (lambda () \ 
(let loop () \ 
(sleep 10) \ 
(if (defined? 'user) \ 
(if (not (number? user)) \ 
(http-send-data user)) \ 
(if (not (defined? 'SelfPlay-RUN)) \ 





(loop))))))) 
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